home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / sample code / overview / ooptesample / utedocument.p < prev    next >
Encoding:
Text File  |  2000-09-28  |  3.1 KB  |  100 lines
  1. {---------------------------------------------------------------------
  2. #
  3. #    Apple Macintosh Developer Technical Support
  4. #
  5. #    MultiFinder-Aware Simple TextEdit Sample Application
  6. #
  7. #    OOPTESample
  8. #
  9. #    UTEDocument.p        -    Pascal Source
  10. #
  11. #    Copyright © 1988, 1989 Apple Computer, Inc.
  12. #    All rights reserved.
  13. #
  14. #    Versions:        
  15. #                    1.00                    04/89
  16. #                    1.10                    02/90
  17. #                    1.11                    10/92
  18. #
  19. #    Components:     
  20. #                    BuildOOPTESample            February 1, 1990
  21. #                    MTESample.p                    February 1, 1990
  22. #                    OOPTESample.make            February 1, 1990
  23. #                    TECommon.h                    February 1, 1990
  24. #                    TESampleGlue.a                February 1, 1990
  25. #                    TESample.r                    February 1, 1990
  26. #                    TMLRules.make                February 1, 1990
  27. #                    UApplication.p                February 1, 1990
  28. #                    UApplication.inc1.p            February 1, 1990
  29. #                    UDocument.p                    February 1, 1990
  30. #                    UDocument.inc1.p            February 1, 1990
  31. #                    UTEDocument.p                February 1, 1990
  32. #                    UTEDocument.inc1.p            February 1, 1990
  33. #                    UTESample.p                    February 1, 1990
  34. #                    UTESample.inc1.p            February 1, 1990
  35. #
  36. ---------------------------------------------------------------------}
  37.  
  38. UNIT UTEDocument;
  39.  
  40. INTERFACE
  41.  
  42. USES
  43.     Types, QuickDraw, Controls, Events, Windows, TextEdit, Dialogs,
  44.     Menus, Devices, ToolUtils, OSUtils, Scrap, Memory,
  45.     ObjIntf, UDocument, UApplication;
  46.  
  47. PROCEDURE PascalClickLoop;
  48. FUNCTION GetOldClickLoop:TEClickLoopUPP;
  49.  
  50. TYPE
  51.     TTEDocument = OBJECT(TDocument)
  52.         fDocTE:            TEHandle;        { Our text, who art in heaven... }
  53.         fDocVScroll:    ControlHandle;    { Vertical Scrollbar }
  54.         fDocHScroll:    ControlHandle;    { Horizontal Scrollbar }
  55.         fDocClick:        TEClickLoopUPP;    { Our click loop }
  56.  
  57.         PROCEDURE TTEDocument.ITEDocument(resID:integer);
  58.         PROCEDURE TTEDocument.Free; OVERRIDE;
  59.  
  60.         { methods from TDocument we override }
  61.         PROCEDURE TTEDocument.DoZoom(partCode:integer); OVERRIDE;
  62.         PROCEDURE TTEDocument.DoGrow(theEvent:EventRecord); OVERRIDE;
  63.         PROCEDURE TTEDocument.DoContent(theEvent:EventRecord); OVERRIDE;
  64.         PROCEDURE TTEDocument.DoKeyDown(theEvent:EventRecord); OVERRIDE;
  65.         PROCEDURE TTEDocument.DoActivate(becomingActive:Boolean); OVERRIDE;
  66.         PROCEDURE TTEDocument.DoIdle; OVERRIDE;
  67.         PROCEDURE TTEDocument.DoUpdate; OVERRIDE;
  68.         PROCEDURE TTEDocument.DoCut; OVERRIDE;
  69.         PROCEDURE TTEDocument.DoCopy; OVERRIDE;
  70.         PROCEDURE TTEDocument.DoPaste; OVERRIDE;
  71.         PROCEDURE TTEDocument.DoClear; OVERRIDE;
  72.         FUNCTION TTEDocument.HaveSelection:Boolean; OVERRIDE;
  73.         FUNCTION TTEDocument.CalcIdle:Longint; OVERRIDE;
  74.  
  75.         { new public methods }
  76.         PROCEDURE TTEDocument.AdjustScrollValues(mustRedraw:Boolean);
  77.         FUNCTION TTEDocument.GetClickLoop:ProcPtr;
  78.         FUNCTION TTEDocument.GetTEHandle:TEHandle;
  79.         PROCEDURE TTEDocument.GetVisTERgn(rgn:RgnHandle);
  80.  
  81.         { methods not intended for use outside of this class }
  82.         PROCEDURE TTEDocument.GetTERect(VAR teRect:Rect);
  83.         PROCEDURE TTEDocument.AdjustTE;
  84.         PROCEDURE TTEDocument.DrawWindow;
  85.         PROCEDURE TTEDocument.AdjustViewRect;
  86.         PROCEDURE TTEDocument.ResizeWindow;
  87.         PROCEDURE TTEDocument.AdjustHV(isVert, mustRedraw:Boolean);
  88.         PROCEDURE TTEDocument.AdjustScrollSizes;
  89.         PROCEDURE TTEDocument.AdjustScrollbars(needsResize:Boolean);
  90.     END;
  91.  
  92. VAR
  93.     gApplication: TApplication;
  94.  
  95. IMPLEMENTATION
  96.  
  97. {$I UTEDocument.inc1.p}
  98.  
  99. END.
  100.